home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / graphics / area1.bas < prev    next >
Encoding:
BASIC Source File  |  1988-12-02  |  173 b   |  12 lines
  1.  Colors=4
  2.  SCREEN 1,640,200,Colors,2
  3.  WINDOW 1,"Areas",,15,1
  4.  Start:
  5.  COLOR ((2^Colors)-1)*RND,0
  6.  FOR x = 1 TO 3+17*RND
  7.  AREA(617*RND,184*RND)
  8.  NEXT
  9.  AREAFILL
  10.  GOTO Start
  11.  
  12.